home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SuperiorCanfield.dxr / Internal_6_waste card.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.4 KB  |  85 lines
  1. property spriteNum, motion, undercard, location
  2. global waste, getlist, equal, currentsel, godlist, foundation, stock, points, tableau, stockgone
  3.  
  4. on beginSprite me
  5.   stockgone = 0
  6.   waste = new(script("card pile"))
  7.   undercard = sprite(11)
  8.   location = sprite(spriteNum).loc
  9. end
  10.  
  11. on mouseDown me
  12.   if waste.getcardcount() > 0 then
  13.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  14.     sprite(spriteNum).locZ = spriteNum + 1000
  15.     getlist = waste
  16.     if waste.getcardcount() > 1 then
  17.       undercard.member = member(waste.cards[waste.getcardcount() - 1].membername, "playing cards")
  18.     else
  19.       if waste.getcardcount() = 1 then
  20.         undercard.member = member("empty", "playing cards")
  21.       end if
  22.     end if
  23.     motion = timeout(string(spriteNum) && "motion").new(5, #moving, me)
  24.   end if
  25. end
  26.  
  27. on moving me
  28.   if the mouseDown then
  29.     sprite(spriteNum).loc = the mouseLoc
  30.   else
  31.     if the mouseUp then
  32.       sprite(spriteNum).locZ = spriteNum
  33.       motion.forget()
  34.       abort()
  35.     end if
  36.   end if
  37. end
  38.  
  39. on mouseUp me
  40.   if equal then
  41.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  42.     sprite(currentsel).member = member(sprite(spriteNum).member.name, "playing cards")
  43.     godlist.addCard(currentsel)
  44.     sprite(spriteNum).loc = location
  45.     waste.cards.deleteOne(waste.getlastcard())
  46.     if waste.getcardcount() > 0 then
  47.       sprite(spriteNum).member = member(waste.getlastcard().membername, "playing cards")
  48.     else
  49.       if waste.getcardcount() = 0 then
  50.         sprite(spriteNum).member = member("empty", "playing cards")
  51.         undercard.member = member("empty", "playing cards")
  52.       end if
  53.     end if
  54.     equal = 0
  55.     if objectp(foundation[sprite(currentsel).row]) then
  56.       points = points + 10
  57.     end if
  58.     if objectp(tableau[sprite(currentsel).row]) then
  59.       repeat with i = 93 to 96
  60.         if tableau[sprite(i).row].getcardcount() = 0 then
  61.           next repeat
  62.         end if
  63.         sprite(i).loc = tableau[sprite(i).row].getlastcard().location
  64.       end repeat
  65.     end if
  66.     currentsel = 0
  67.     godlist = VOID
  68.     getlist = VOID
  69.     checkwin()
  70.     if waste.cards.count = 0 then
  71.       if stock.cards.count = 0 then
  72.         sprite(10).member = member("empty", "playing cards")
  73.         stockgone = 1
  74.       end if
  75.     end if
  76.   else
  77.     if not equal then
  78.       puppetSound(3, member("drop card", "100GPak Generic SFX"))
  79.       getlist = VOID
  80.       sprite(spriteNum).loc = location
  81.     end if
  82.   end if
  83.   checkwin()
  84. end
  85.